home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 November / 1994-11b.d64 / catacombs inst (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  90 lines
  1. 0 rem from nelcug disk 6/87
  2. 10 print"[147][152]";:poke53281,15:poke53280,15
  3. 20 fori=1to23:reada$:ifa$="[157]"thengosub80:goto200
  4. 50 printa$:next:gosub80:goto20
  5. 80 p=p+1:print" [154] [208]ress <[211][208][193][195][197]> to continue   [208]age"p"[157] [145][152]"
  6. 90 getb$:ifb$=""then90
  7. 100 print"[147]";:return
  8. 200 print"[147][154]     [208]ress <[209]> to [209][213][201][212]
  9. 210 [153]"     (NULL)ress <(NULL)> to (NULL)val(NULL)right$val(NULL)
  10. 220 print"     [208]ress <[204]> to load [195][193][212][193][195][207][205][194][211]
  11. 240 [161]k$:[139]k$[179][177]"r"[175]k$[179][177]"l"[175]k$[179][177]"q"[167]240
  12. 250 [139]k$[178]"r"[167][138]
  13. 260 [139]k$[178]"q"[167][128]
  14. 300 [153]"loadload"[199](34)"catacombs"[199](34)",8":[153]"run";
  15. 310 [151]631,13:[151]632,13:[151]198,2:[128]
  16. 10000 [131]"
  17. 10010 data"[150]              [195][193][212][193][195][207][205][194][211]
  18. 10020 [131]"
  19. 10030 data"             [201]nstructions
  20. 10040 [131]"
  21. 10050 data"[152][201]n [195][193][212][193][195][207][205][194][211] you wander around in a
  22. 10060 [131]"huge underground labyrinth that is 
  23. 10070 data"bigger than the screen itself. [212]he map 
  24. 10080 [131]"of the dungeon is 50 rows by 80 
  25. 10090 data"columns, with 10 levels. [212]he screen 
  26. 10100 [131]"scrolls in all four directions around 
  27. 10110 data"you whenever you move against the 
  28. 10120 [131]"border.
  29. 10130 data"
  30. 10140 [131]"(NULL)our purpose on each level is to avoid 
  31. 10150 data"the traps and monsters, get as many 
  32. 10160 [131]"gold chests as possible, and find the 
  33. 10170 data"key that unlocks the door leading to 
  34. 10180 [131]"the next level.
  35. 10190 data"
  36. 10200 [131]"(NULL)n the first five levels, this is 
  37. 10210 data"relatively easy, since the catacombs 
  38. 10220 [131]"are illuminated. peekut on the next five 
  39. 10230 data"levels the lights are out, and the only
  40. 10240 [131]"things you can see are the objects 
  41. 10250 data"which are within range of your torch.
  42. 10260 [131]"right$t takes an extensive search, as well 
  43. 10270 data"as caution, to avoid the traps and 
  44. 10280 [131]"monsters while you look.
  45. 10290 data"
  46. 10300 [131]"(NULL)here five types of critters living in 
  47. 10310 data"the catacombs: [211]kulls, wizards, bats, 
  48. 10320 [131]"spirits, and snakes. (NULL)here three of 
  49. 10330 data"these guardians on each level, and they
  50. 10340 [131]"are quite intelligent and relentless in
  51. 10350 data"their efforts to catch you. [201]f one of 
  52. 10360 [131]"the monsters catch you the game ends.
  53. 10370 data"
  54. 10380 [131]"(NULL)he chests are worth 50 gold points 
  55. 10390 data"each. [193] key adds 100 gold point bonus 
  56. 10400 [131]"to your booty. valach level is worth 25 
  57. 10410 data"gold points.
  58. 10420 [131]"
  59. 10430 data"[212]here are two types of doors in the 
  60. 10440 [131]"dungeons. (NULL)ne is white, the door you 
  61. 10450 data"came in, and one is gray, the one you 
  62. 10460 [131]"need to unlock. (NULL)ou cannot go back 
  63. 10470 data"through the white door. [217]ou cannot go 
  64. 10480 [131]"through the gray door until you have 
  65. 10490 data"the key.
  66. 10500 [131]"
  67. 10510 data"[212]he traps are detectable if you keep 
  68. 10520 [131]"your eyes open. (NULL)he tripwires look like
  69. 10530 data"single pixels on your screen. [201]f you 
  70. 10540 [131]"set off the trap you lose 50 gold 
  71. 10550 data"points - but worse than that, the 
  72. 10560 [131]"lights go out in the level that you are
  73. 10570 data"on. [217]ou can get through the first five 
  74. 10580 [131]"levels by avioding the traps, but 
  75. 10590 data"levels 6-10 are dark anyway, so you 
  76. 10600 [131]"only lose 50 gold points.
  77. 10610 data"
  78. 10620 [131]"right$f you complete all ten levels, the 
  79. 10630 data"game ends, prints your total of gold 
  80. 10640 [131]"points, and asks if you want to play 
  81. 10650 data"again. [208]ress '[217]' or '[206]' at the prompt.
  82. 10660 [131]"
  83. 10662 data"
  84. 10664 [131]"
  85. 10670 data"[212]his program makes use of the [197][206][212][197][206][196][197][196] 
  86. 10680 [131]"peekatnlen(NULL)chr$(NULL)(NULL)(NULL)(NULL)str$ len(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)str$val feature of the 
  87. 10690 data"[195]-64.
  88. 10780 [131]"def          valnd of right$nstructions
  89. 10790 data"[157]
  90.